home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -websites- / wirenet / files / updatewirenet.lzx / Updates / StopNet < prev    next >
AmigaDOS Script File  |  1999-11-06  |  294b  |  21 lines
  1. .KEY FLUSH/S
  2. .BRA {
  3. .KET }
  4.  
  5. Lab KillTCP
  6.  
  7. If `rx "Say Show(ports, AMITCP)"` EQ 1
  8.     rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  9.     Wait 2
  10.     EndIf
  11.  
  12. If `rx "Say Show(ports, AMITCP)"` EQ 1
  13.     Skip KillTCP BACK
  14.     EndIf
  15.  
  16. If {FLUSH}
  17.     Avail >NIL: FLUSH
  18.     EndIf
  19.  
  20. SetEnv NetState NoNet
  21.